(comint-dynamic-list-completions): Expand PATHDIR in call to

file-name-completion.

diff --git a/lisp/comint.el b/lisp/comint.el
index fa71e58290fac1ffbe6c5ca0bf0a73011d2358c0..d660ff48831eabdbef445416eec151ac36a732b1 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1214,7 +1214,9 @@ it just adds completion characters to the end of the filename."
         (pathnondir (file-name-nondirectory pathname))
         (completions
          (file-name-all-completions pathnondir
-                                    (or pathdir default-directory))))
+                                    (if pathdir
+                                        (expand-file-name pathdir)
+                                      default-directory))))
     (cond ((null completions)
           (message "No completions of %s" pathname)
           (ding))